*** Yadon Data Analyses: 2019 AmeriSpeak Study



* open "Yadon 2019 AmeriSpeak Data.dta" file


** Table 1
	tab treatpolice
	
** Figure 2
		reg treatpolice skintone blackimp female edu01 age01 south income01 partyid01 ideo01 ownhome employed treatthreatrace treatthreatskin treatopptyrace treatopptyskin
				margins, at(skintone=(0(.1)1))
						marginsplot, ///
							title("Darker-Skinned Black People Given Harsher Treatment by Police", span position(12) color(black) size(large)) ///
							subtitle("", span size(medium)) /// 
							ytitle("Believe Darker-Skinned People Treated Worse", size(medsmall)) ///
							xtitle("Self-Assessed Skin Tone, light to dark", size(medium)) ///
							yline(0, lpattern(dash) lcolor(black)) ///
							yscale(titlegap(4)) ///
							yscale(r(0 1)) ///
							ylabel(0(.1)1) ///
							xscale(titlegap(1)) ///
							plot1opts(mcolor(gs9) msize(medium)) 	///
							ci1opts(lwidth(medium) color(gs9)) ///
							recast(line) recastci(rarea) ///
							graphregion( color(white) )
							
							
** Table 2
	tab skindivisive
	
	
** Figure 3			
		reg skindivisive skintone blackimp female edu01 age01 south income01 partyid01 ideo01 ownhome employed treatthreatrace treatthreatskin treatopptyrace treatopptyskin
				margins, at(skintone=(0(.1)1))
						marginsplot, ///
							title("Discussing Skin Tone is a Distraction from Race", span position(12) color(black) size(large)) ///
							subtitle("", span size(medium)) /// 
							ytitle("Believes Discussing Skin Tone Distracts from Race", size(medsmall)) ///
							xtitle("Self-Assessed Skin Tone, light to dark", size(medium)) ///
							yline(0, lpattern(dash) lcolor(black)) ///
							yscale(titlegap(4)) ///
							yscale(r(0 1)) ///
							ylabel(0(.1)1) ///
							xscale(titlegap(1)) ///
							plot1opts(mcolor(gs9) msize(medium)) 	///
							ci1opts(lwidth(medium) color(gs9)) ///
							recast(line) recastci(rarea) ///
							graphregion( color(white) )
